/ Amoszine 4 / Amoszine 4 (Disk 1 of 3).adf / beginners_examples / example04.AMOS

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 76 31 2e 33 20 |AMOS Bas|ic v1.3 |
|00000010| 00 00 0a 30 0e 01 06 52 | 00 14 3d 3d 3d 3d 3d 3d |...0...R|..======|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 00 00 |========|======..|
|00000030| 0e 01 06 52 00 14 45 58 | 41 4d 50 4c 45 20 50 52 |...R..EX|AMPLE PR|
|00000040| 4f 47 52 41 4d 20 46 4f | 55 52 00 00 0f 01 06 52 |OGRAM FO|UR.....R|
|00000050| 00 16 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..======|========|
|00000060| 3d 3d 3d 3d 3d 3d 20 20 | 00 00 04 01 06 52 00 00 |======  |.....R..|
|00000070| 00 00 1c 01 06 52 00 30 | 41 20 70 72 6f 67 72 61 |.....R.0|A progra|
|00000080| 6d 20 74 6f 20 70 72 69 | 6e 74 20 61 6e 79 20 74 |m to pri|nt any t|
|00000090| 69 6d 65 73 20 74 61 62 | 6c 65 20 66 72 6f 6d 20 |imes tab|le from |
|000000a0| 31 20 74 6f 20 39 39 20 | 00 00 04 01 06 52 00 00 |1 to 99 |.....R..|
|000000b0| 00 00 04 01 06 52 00 00 | 00 00 1b 01 06 4a 00 2e |.....R..|.....J..|
|000000c0| 20 52 65 6d 6f 76 65 20 | 74 68 65 20 6d 6f 75 73 | Remove |the mous|
|000000d0| 65 20 70 6f 69 6e 74 65 | 72 2c 73 65 74 20 74 65 |e pointe|r,set te|
|000000e0| 78 74 20 62 61 63 6b 67 | 72 6f 75 6e 64 20 00 00 |xt backg|round ..|
|000000f0| 26 01 06 4a 00 44 20 74 | 6f 20 62 6c 61 63 6b 20 |&..J.D t|o black |
|00000100| 61 6e 64 20 63 6c 65 61 | 72 20 74 68 65 20 73 63 |and clea|r the sc|
|00000110| 72 65 65 6e 20 74 6f 20 | 62 6c 61 63 6b 2c 20 73 |reen to |black, s|
|00000120| 65 65 20 45 58 41 4d 50 | 4c 45 31 20 61 6e 64 20 |ee EXAMP|LE1 and |
|00000130| 45 58 41 4d 50 4c 45 32 | 20 20 00 00 25 01 06 52 |EXAMPLE2|  ..%..R|
|00000140| 00 42 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.B------|--------|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000180| 2d 2d 2d 2d 00 00 0d 01 | 1d e0 00 54 13 dc 00 3e |----....|...T...>|
|00000190| 00 00 00 00 00 54 0b b8 | 00 3e 00 00 00 00 00 00 |.....T..|.>......|
|000001a0| 02 01 00 00 02 01 00 00 | 2b 01 06 4a 00 4e 20 61 |........|+..J.N a|
|000001b0| 73 6b 20 74 68 65 20 75 | 73 65 72 20 77 68 61 74 |sk the u|ser what|
|000001c0| 20 74 61 62 6c 65 20 74 | 68 65 79 20 77 61 6e 74 | table t|hey want|
|000001d0| 20 64 69 73 70 6c 61 79 | 65 64 20 61 6e 64 20 73 | display|ed and s|
|000001e0| 74 6f 72 65 20 74 68 61 | 74 20 6e 75 6d 62 65 72 |tore tha|t number|
|000001f0| 20 69 6e 20 54 54 20 20 | 20 20 20 20 00 00 29 01 | in TT  |    ..).|
|00000200| 06 52 00 4a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.R.J----|--------|
|00000210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 00 00 |--------|----- ..|
|00000250| 15 01 04 dc 00 26 00 16 | 54 59 50 45 20 49 4e 20 |.....&..|TYPE IN |
|00000260| 41 20 4e 55 4d 42 45 52 | 20 31 2d 39 39 20 00 64 |A NUMBER| 1-99 .d|
|00000270| 00 06 00 00 02 00 74 74 | 00 00 02 01 00 00 02 01 |......tt|........|
|00000280| 00 00 2a 01 06 4a 00 4c | 20 63 6c 65 61 72 20 74 |..*..J.L| clear t|
|00000290| 68 65 20 73 63 72 65 65 | 6e 20 74 6f 20 72 65 64 |he scree|n to red|
|000002a0| 20 61 6e 64 20 73 65 74 | 20 74 68 65 20 70 61 70 | and set| the pap|
|000002b0| 65 72 20 63 6f 6c 6f 75 | 72 20 74 6f 20 72 65 64 |er colou|r to red|
|000002c0| 20 61 6e 64 20 74 75 72 | 6e 20 63 75 72 73 20 6f | and tur|n curs o|
|000002d0| 66 66 20 20 00 00 2d 01 | 06 52 00 52 2d 2d 2d 2d |ff  ..-.|.R.R----|
|000002e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 20 00 00 |--------|----  ..|
|00000330| 0d 01 0b b8 00 3e 00 00 | 00 04 00 54 13 dc 00 3e |.....>..|...T...>|
|00000340| 00 00 00 04 00 54 14 46 | 00 00 02 01 00 00 02 01 |.....T.F|........|
|00000350| 00 00 20 01 06 4a 00 38 | 20 73 65 74 20 74 68 65 |.. ..J.8| set the|
|00000360| 20 66 6f 72 20 6e 65 78 | 74 20 6c 6f 6f 70 20 73 | for nex|t loop s|
|00000370| 74 61 72 74 69 6e 67 20 | 61 74 20 31 20 61 6e 64 |tarting |at 1 and|
|00000380| 20 65 6e 64 69 6e 67 20 | 61 74 20 31 32 20 20 20 | ending |at 12   |
|00000390| 00 00 21 01 06 52 00 3a | 2d 2d 2d 2d 2d 2d 2d 2d |..!..R.:|--------|
|000003a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003d0| 20 20 00 00 10 01 02 3c | 01 f4 00 06 00 06 02 00 |  .....<|........|
|000003e0| 61 00 ff a2 00 3e 00 00 | 00 01 00 94 00 3e 00 00 |a....>..|.....>..|
|000003f0| 00 0c 00 00 02 01 00 00 | 02 01 00 00 19 01 06 4a |........|.......J|
|00000400| 00 2a 20 70 72 69 6e 74 | 20 74 68 65 20 63 61 6c |.* print| the cal|
|00000410| 63 75 6c 61 74 69 6f 6e | 20 41 2a 54 54 20 74 6f |culation| A*TT to|
|00000420| 20 74 68 65 20 73 63 72 | 65 65 6e 20 00 00 1a 01 | the scr|een ....|
|00000430| 06 52 00 2c 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.R.,----|--------|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000460| 00 00 0c 01 04 76 00 06 | 00 06 02 00 61 00 ff e2 |.....v..|....a...|
|00000470| 00 06 00 00 02 00 74 74 | 00 00 02 01 00 00 02 01 |......tt|........|
|00000480| 00 00 2a 01 06 4a 00 4c | 20 41 6d 6f 73 20 6e 6f |..*..J.L| Amos no|
|00000490| 77 20 49 4e 43 72 65 6d | 65 6e 74 73 20 41 20 61 |w INCrem|ents A a|
|000004a0| 75 74 6f 6d 61 74 69 63 | 61 6c 6c 79 20 61 6e 64 |utomatic|ally and|
|000004b0| 20 63 68 65 63 6b 73 20 | 74 6f 20 73 65 65 20 69 | checks |to see i|
|000004c0| 66 20 41 20 69 73 20 6c | 65 73 73 20 74 68 61 6e |f A is l|ess than|
|000004d0| 20 31 32 20 00 00 28 01 | 06 4a 00 48 20 77 68 69 | 12 ..(.|.J.H whi|
|000004e0| 63 68 20 69 73 20 74 68 | 65 20 6d 61 78 69 6d 75 |ch is th|e maximu|
|000004f0| 6d 20 77 65 20 68 61 76 | 65 20 61 73 6b 65 64 20 |m we hav|e asked |
|00000500| 69 74 20 74 6f 20 67 6f | 20 74 6f 20 2c 20 63 68 |it to go| to , ch|
|00000510| 61 6e 67 65 20 69 74 20 | 69 66 20 79 6f 75 20 6c |ange it |if you l|
|00000520| 69 6b 65 2e 00 00 27 01 | 06 4a 00 46 20 49 66 20 |ike...'.|.J.F If |
|00000530| 41 20 69 73 20 6c 65 73 | 73 20 74 68 61 6e 20 31 |A is les|s than 1|
|00000540| 32 20 41 6d 6f 73 20 77 | 69 6c 6c 20 6a 75 6d 70 |2 Amos w|ill jump|
|00000550| 20 62 61 63 6b 20 74 6f | 20 64 6f 20 74 68 65 20 | back to| do the |
|00000560| 6e 65 78 74 20 63 61 6c | 63 75 6c 61 74 69 6f 6e |next cal|culation|
|00000570| 2e 20 00 00 2b 01 06 52 | 00 4e 2d 2d 2d 2d 2d 2d |. ..+..R|.N------|
|00000580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005c0| 2d 2d 2d 2d 2d 2d 2d 2d | 00 00 07 01 02 46 00 06 |--------|.....F..|
|000005d0| 00 06 02 00 61 00 00 00 | 02 01 00 00 02 01 00 00 |....a...|........|
|000005e0| 28 01 06 4a 00 48 20 49 | 66 20 41 20 77 61 73 20 |(..J.H I|f A was |
|000005f0| 6d 6f 72 65 20 74 68 61 | 6e 20 6f 72 20 65 71 75 |more tha|n or equ|
|00000600| 61 6c 20 74 6f 20 31 32 | 20 69 74 20 77 69 6c 6c |al to 12| it will|
|00000610| 20 61 72 72 69 76 65 20 | 68 65 72 65 2c 20 77 68 | arrive |here, wh|
|00000620| 65 72 65 20 41 6d 6f 73 | 20 77 61 69 74 73 00 00 |ere Amos| waits..|
|00000630| 20 01 06 4a 00 38 20 66 | 6f 72 20 61 20 6b 65 79 | ..J.8 f|or a key|
|00000640| 20 70 72 65 73 73 20 66 | 72 6f 6d 20 79 6f 75 20 | press f|rom you |
|00000650| 74 68 65 6e 20 6a 75 6d | 70 73 20 62 61 63 6b 20 |then jum|ps back |
|00000660| 74 6f 20 74 68 65 20 65 | 64 69 74 6f 72 2e 00 00 |to the e|ditor...|
|00000670| 2a 01 06 52 00 4c 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*..R.L--|--------|
|00000680| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006c0| 2d 2d 00 00 05 01 12 90 | 00 54 06 70 00 00 02 01 |--......|.T.p....|
|000006d0| 00 00 02 01 00 00 02 01 | 00 00 02 01 00 00 2a 01 |........|......*.|
|000006e0| 06 52 00 4c 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.R.L====|========|
|000006f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000700| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000710| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000720| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000730| 00 00 29 01 06 52 00 4a | 42 79 20 74 72 79 69 6e |..)..R.J|By tryin|
|00000740| 67 20 74 6f 20 6b 65 65 | 70 20 74 68 69 6e 67 73 |g to kee|p things|
|00000750| 20 73 69 6d 70 6c 65 20 | 74 68 69 73 20 70 72 6f | simple |this pro|
|00000760| 67 72 61 6d 69 73 20 73 | 65 76 65 72 65 6c 79 20 |gramis s|everely |
|00000770| 6c 61 63 6b 69 6e 67 20 | 69 6e 20 63 65 72 74 61 |lacking |in certa|
|00000780| 69 6e 00 00 29 01 06 52 | 00 4a 70 6c 61 63 65 73 |in..)..R|.Jplaces|
|00000790| 2e 20 46 6f 72 20 65 78 | 61 70 6c 65 20 74 68 65 |. For ex|aple the|
|000007a0| 20 75 73 65 72 20 63 61 | 6e 20 74 79 70 65 20 41 | user ca|n type A|
|000007b0| 4e 59 20 6e 75 6d 62 65 | 72 20 69 6e 20 61 6e 64 |NY numbe|r in and|
|000007c0| 20 69 74 20 77 6f 75 6c | 64 20 62 65 20 6e 69 63 | it woul|d be nic|
|000007d0| 65 20 74 6f 00 00 25 01 | 06 52 00 42 68 61 76 65 |e to..%.|.R.Bhave|
|000007e0| 20 74 68 65 20 74 61 62 | 6c 65 20 6e 75 6d 62 65 | the tab|le numbe|
|000007f0| 72 65 64 20 31 20 74 6f | 20 31 32 20 64 6f 77 6e |red 1 to| 12 down|
|00000800| 20 74 68 65 20 73 69 64 | 65 20 6f 66 20 65 61 63 | the sid|e of eac|
|00000810| 68 20 63 61 6c 63 75 6c | 61 74 69 6f 6e 2e 00 00 |h calcul|ation...|
|00000820| 23 01 06 52 00 3e 54 68 | 69 73 20 69 73 20 66 61 |#..R.>Th|is is fa|
|00000830| 69 72 6c 79 20 73 69 6d | 70 6c 65 20 74 6f 20 64 |irly sim|ple to d|
|00000840| 6f 2e 20 44 6f 20 79 6f | 75 20 74 68 69 6e 6b 20 |o. Do yo|u think |
|00000850| 79 6f 75 20 63 6f 75 6c | 64 20 6d 61 6e 61 67 65 |you coul|d manage|
|00000860| 20 69 74 3f 00 00 2b 01 | 06 52 00 4e 57 68 79 20 | it?..+.|.R.NWhy |
|00000870| 6e 6f 74 20 68 61 76 65 | 20 61 20 67 6f 2e 20 41 |not have| a go. A|
|00000880| 20 66 65 77 20 68 69 6e | 74 73 3a 20 54 68 65 20 | few hin|ts: The |
|00000890| 6c 6f 6f 70 20 63 6f 75 | 6e 74 65 72 20 28 41 29 |loop cou|nter (A)|
|000008a0| 20 68 6f 6c 64 73 20 74 | 68 65 20 6e 75 6d 62 65 | holds t|he numbe|
|000008b0| 72 20 79 6f 75 20 6e 65 | 65 64 00 00 2a 01 06 52 |r you ne|ed..*..R|
|000008c0| 00 4c 74 6f 20 50 52 49 | 4e 54 20 61 6c 6f 6e 67 |.Lto PRI|NT along|
|000008d0| 20 73 69 64 65 20 74 68 | 65 20 63 61 6c 63 75 6c | side th|e calcul|
|000008e0| 61 74 69 6f 6e 2e 20 54 | 6f 20 73 74 6f 70 20 74 |ation. T|o stop t|
|000008f0| 68 65 20 70 72 6f 67 72 | 61 6d 20 61 63 63 65 70 |he progr|am accep|
|00000900| 74 69 6e 67 20 61 6e 20 | 69 6e 70 75 74 20 00 00 |ting an |input ..|
|00000910| 29 01 06 52 00 4a 6f 66 | 20 6d 6f 72 65 20 74 68 |)..R.Jof| more th|
|00000920| 61 6e 20 39 39 20 77 69 | 6c 6c 20 72 65 71 75 69 |an 99 wi|ll requi|
|00000930| 72 65 20 61 6e 20 49 46 | 20 54 48 45 4e 20 74 65 |re an IF| THEN te|
|00000940| 73 74 20 77 68 69 63 68 | 20 77 65 20 68 61 76 65 |st which| we have|
|00000950| 6e 27 74 20 63 6f 76 65 | 72 65 64 20 79 65 74 2e |n't cove|red yet.|
|00000960| 00 00 2b 01 06 52 00 4e | 57 68 79 20 6e 6f 74 20 |..+..R.N|Why not |
|00000970| 63 6f 6d 65 20 62 61 63 | 6b 20 68 65 72 65 20 61 |come bac|k here a|
|00000980| 6e 64 20 74 72 79 20 74 | 6f 20 69 6d 70 6c 65 6d |nd try t|o implem|
|00000990| 65 6e 74 20 74 68 69 73 | 20 63 68 61 6e 67 65 20 |ent this| change |
|000009a0| 77 68 65 6e 20 79 6f 75 | 20 68 61 76 65 20 6c 65 |when you| have le|
|000009b0| 61 72 6e 65 64 20 00 00 | 16 01 06 52 00 24 61 62 |arned ..|...R.$ab|
|000009c0| 6f 75 74 20 49 46 20 61 | 6e 64 20 54 48 45 4e 3f |out IF a|nd THEN?|
|000009d0| 20 47 6f 20 6f 6e 2c 20 | 49 20 64 61 72 65 20 79 | Go on, |I dare y|
|000009e0| 61 21 00 00 2c 01 06 52 | 00 50 3d 3d 3d 3d 3d 3d |a!..,..R|.P======|
|000009f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a30| 3d 3d 3d 3d 3d 3d 3d 3d | 20 20 00 00 04 01 06 52 |========|  .....R|
|00000a40| 00 00 00 00 41 6d 42 73 | 00 00                   |....AmBs|..      |
+--------+-------------------------+-------------------------+--------+--------+